home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / awkbyte.zip / PHDATA.AWK < prev   
Text File  |  1991-03-25  |  418b  |  11 lines
  1. # this is the AWK program phdata.awk (I use Rob Duff's dos version of AWK)
  2. # to run on datacma.asc,  enter:
  3. #               awk -F, phdata.awk datacma.asc 
  4. # see p 246 in the April 91 BYTE mag for basic version
  5. # and context.
  6.  
  7. $5 ~ /(phone|Phone)/ {y = substr($2,7,2)
  8.                     year[y] = year[y]+$3 }
  9. END                 {for (i in year)
  10.                     print "total for 19" i,"was", year[i] }
  11.